;;;;;;;;;;;;;;;;;;;;;;;;
[@Main]
#IF
;ISADMIN
#SAY
____Event Menu\\
<[ Summer Event ]/@SummerEvent>\
<[ Challenge Room Event ]/@ChallengeRoomEvent>\
;<[ Monster Island Event ]/@MonsterIslandEvent>\
<[ Numa Village Event ]/@NumaVillageEvent>\
;<[ PVP Events ]/@CheckDayOfWeek>\\
<[ Gambler Main Menu ]/@GamblerMainMenuMain>\\
<[ Exit ]/@exit>\\\

[@SummerEvent]
#IF
#SAY
HiyA, welcome to the Summer Event\\
This was based on an idea from\
CrusaderIssy, ty Issy :)\\
You have to collect all of the RAINBOW\
letters to collect your prize, they\
will drop EVERYWHERE, so get hunting :)\\
<[ I have them all :) ]/@CollectPrize>\\
<[ Exchange SunBonusXPToken's ]/@ExchangeXPToken>\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\

[@ExchangeXPToken]
#IF
CheckItem SunBonusXPToken1 1
#ACT
Take SunBonusXPToken1 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken2 1
#ACT
Take SunBonusXPToken2 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken3 1
#ACT
Take SunBonusXPToken3 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken4 1
#ACT
Take SunBonusXPToken4 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken5 1
#ACT
Take SunBonusXPToken5 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken6 1
#ACT
Take SunBonusXPToken6 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken7 1
#ACT
Take SunBonusXPToken7 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken8 1
#ACT
Take SunBonusXPToken8 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken9 1
#ACT
Take SunBonusXPToken9 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken10 1
#ACT
Take SunBonusXPToken10 1
Give SunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken11 1
#ACT
Take SunBonusXPToken11 1
Give SuperSunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken12 1
#ACT
Take SunBonusXPToken12 1
Give SuperSunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken13 1
#ACT
Take SunBonusXPToken13 1
Give SuperSunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\

#IF
CheckItem SunBonusXPToken14 1
#ACT
Take SunBonusXPToken14 1
Give SuperSunBonusXP
Break
#SAY
Do you want to Exchange another one?\\
<[ Yes Plz ]/@ExchangeXPToken>\
<[ Exit ]/@Exit>\\\




[@CollectPrize]
#IF
CheckItem  Rainbow(R)  1
CheckItem  Rainbow(A)  1
CheckItem  Rainbow(I)  1
CheckItem  Rainbow(N)  1
CheckItem  Rainbow(B)  1
CheckItem  Rainbow(O)  1
CheckItem  Rainbow(W)  1
#SAY
Please Choose a prize :)\\
<[ Summer Item ]/@EventItem>\
<[ Summer Pet ]/@EventPet>\
<[ SunBonusXP ]/@EventTail> - Gives Added Exp>\
<[ SuperSunBonusXP ]/@EventTailSuper> - Gives Even More Added Exp>\
<[ 200 Integral ]/@EventIntegral>\\
<[ Back ]/@Main>\\\
#ELSESAY
You do not have the right amount of Letters\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\

[@EventItem]
#IF
CheckItem  Rainbow(R)  1
CheckItem  Rainbow(A)  1
CheckItem  Rainbow(I)  1
CheckItem  Rainbow(N)  1
CheckItem  Rainbow(B)  1
CheckItem  Rainbow(O)  1
CheckItem  Rainbow(W)  1
#SAY
Which Item would you like?\
<[ SummerRing ]/@EventItem1(SummerRing)>\
<[ SummerBrace ]/@EventItem1(SummerBrace)>\
<[ SummerNecky ]/@EventItem1(SummerNecky)>\
<[ SummerHelm ]/@EventItem1(SummerHelm)>\
<[ SummerArmour(M) ]/@EventItem1(SummerArmour(M))>\
<[ SummerArmour(F) ]/@EventItem1(SummerArmour(F))>\
<[ SummerBoots ]/@EventItem1(SummerBoots)>\
<[ SummerBlade ]/@EventItem1(SummerBlade)>\\
<[ Back ]/@Main>\\\
#ELSESAY
You do not have the right amount of Letters\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\

[@EventItem1()]
#IF
CheckItem  Rainbow(R)  1
CheckItem  Rainbow(A)  1
CheckItem  Rainbow(I)  1
CheckItem  Rainbow(N)  1
CheckItem  Rainbow(B)  1
CheckItem  Rainbow(O)  1
CheckItem  Rainbow(W)  1
#ACT
Mov   A1  %ARG(1)
Take  Rainbow(R)  1
Take  Rainbow(A)  1
Take  Rainbow(I)  1
Take  Rainbow(N)  1
Take  Rainbow(B)  1
Take  Rainbow(O)  1
Take  Rainbow(W)  1
Give %A1
Mov  A7 ""
AddStr  A7 %USERNAME
AddStr  A7 ","
AddStr  A7 %A1
AddStr  A7 ",Item,"
Savelog "QuestDiary\SummerEvent.txt" %A7
#SAY
There you go :) Enjoy...\
<[ Back ]/@Main>\\
#ELSESAY
You do not have the right amount of Letters\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\


[@EventTail]
#IF
CheckItem  Rainbow(R)  1
CheckItem  Rainbow(A)  1
CheckItem  Rainbow(I)  1
CheckItem  Rainbow(N)  1
CheckItem  Rainbow(B)  1
CheckItem  Rainbow(O)  1
CheckItem  Rainbow(W)  1
#SAY
This, when used will give you 31% extra\
exp UNTIL YOU LOG OFF.\\
<[ Collect SunBonusXP ]/@EventItem1(SunBonusXP)>\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\
#ELSESAY
You do not have the right amount of Letters\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\

[@EventTailSuper]
#IF
CheckItem  Rainbow(R)  3
CheckItem  Rainbow(A)  3
CheckItem  Rainbow(I)  3
CheckItem  Rainbow(N)  3
CheckItem  Rainbow(B)  3
CheckItem  Rainbow(O)  3
CheckItem  Rainbow(W)  3
#SAY
This, when used will give you 61% extra\
exp UNTIL YOU LOG OFF.\\
<[ Collect SuperSunBonusXP ]/@EventItem111(SuperSunBonusXP)>\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\
#ELSESAY
You need THREE set of Letters for a Super one.. \\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\


[@EventItem111()]
#IF
CheckItem  Rainbow(R)  3
CheckItem  Rainbow(A)  3
CheckItem  Rainbow(I)  3
CheckItem  Rainbow(N)  3
CheckItem  Rainbow(B)  3
CheckItem  Rainbow(O)  3
CheckItem  Rainbow(W)  3
#ACT
Mov   A1  %ARG(1)
Take  Rainbow(R)  3
Take  Rainbow(A)  3
Take  Rainbow(I)  3
Take  Rainbow(N)  3
Take  Rainbow(B)  3
Take  Rainbow(O)  3
Take  Rainbow(W)  3
Give %A1
Mov  A7 ""
AddStr  A7 %USERNAME
AddStr  A7 ","
AddStr  A7 %A1
AddStr  A7 ",SuperXP,"
Savelog "QuestDiary\SummerEvent.txt" %A7
#SAY
There you go :) Enjoy...\
<[ Back ]/@Main>\\
#ELSESAY
You do not have the right amount of Letters\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\


[@EventPet]
#IF
#SAY
Which pet would you like?\\
<[ WoomaTaurus ]/@EventPet1(WoomaTaurus,1,3)> - 1 Set, lasts 3 Hours>\
<[ DemonicUnderlord ]/@EventPet1(DemonicUnderlord,2,2)> - 2 Sets, lasts 2 Hours>\
<[ DeadSoul ]/@EventPet1(DeadSoul,3,1)> - 3 Sets, lasts 1 Hour>\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\

[@EventPet1()]
#IF
CheckMonRecall
#ACT
Mov   A1   %ARG(1)
Mov   D1   %ARG(2)
Mov   D2   %ARG(3)
#ELSESAY
You already have a pet!\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\
#ELSEACT
Break

#IF
CheckItem  Rainbow(R)  %D1
CheckItem  Rainbow(A)  %D1
CheckItem  Rainbow(I)  %D1
CheckItem  Rainbow(N)  %D1
CheckItem  Rainbow(B)  %D1
CheckItem  Rainbow(O)  %D1
CheckItem  Rainbow(W)  %D1
#ACT
Take  Rainbow(R)  %D1
Take  Rainbow(A)  %D1
Take  Rainbow(I)  %D1
Take  Rainbow(N)  %D1
Take  Rainbow(B)  %D1
Take  Rainbow(O)  %D1
Take  Rainbow(W)  %D1
MonRecall  %A1  %D2  0
Mov  A7 ""
AddStr  A7 %USERNAME
AddStr  A7 ","
AddStr  A7 %A1
AddStr  A7 ",Pet,"
Savelog "QuestDiary\SummerEvent.txt" %A7
#SAY
There you go :) Enjoy\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\
#ELSESAY
You do not have the right amount of Letters\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\

[@EventIntegral]
#IF
CheckItem  Rainbow(R)  1
CheckItem  Rainbow(A)  1
CheckItem  Rainbow(I)  1
CheckItem  Rainbow(N)  1
CheckItem  Rainbow(B)  1
CheckItem  Rainbow(O)  1
CheckItem  Rainbow(W)  1
#ACT
Mov   A1  %ARG(1)
Take  Rainbow(R)  1
Take  Rainbow(A)  1
Take  Rainbow(I)  1
Take  Rainbow(N)  1
Take  Rainbow(B)  1
Take  Rainbow(O)  1
Take  Rainbow(W)  1
Give  Integral(20) 10
Mov  A7 ""
AddStr  A7 %USERNAME
AddStr  A7 ",Integral,"
Savelog "QuestDiary\SummerEvent.txt" %A7
#SAY
There you go :) Enjoy\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\
#ELSESAY
You do not have the right amount of Letters\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\\\



[@_Startup]
#ACT
Speak "Come one.. Come all.. Roll up.. Roll up.. Gamblers Here :)"
;DelayGoto [Grobal]  600  @_Startup


[@GamblerMainMenuMain]
#IF
#ACT
LoadValue D6 [QuestDiary/Gambler/ScratchCardVariables.txt] [Convert] [Cash]
LoadValue D7 [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [Cash]
LoadValue D8 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [Cash]

#SAY
Welcome to Sting's Gambler\
I have a number of games for you to try\\
<[ Word Game ]/@CALLWordGame> - Current Prize 10000000\
;<[ Roulette ]/@CALLRoulette>\
<[ Scratch Card ]/@CALLScratch> - Current Prize <$OUTPUT(D6)>\
<[ Hi Lo Gambler ]/@CALLHiLo> - Current Prize <$OUTPUT(D7)>\
<[ Paper Rock Scissors ]/@CALLPRS> - Current Prize <$OUTPUT(D8)>\
<[ Dice Game ]/@CALLDiceGame> - Prizes vary\
<[ Casino Maze ]/@CasinoMazeCALL>\\
<[ Exit ]/@exit>\\\

[@CasinoMazeCALL]
#CALL [Mabangjin\Mabangjin.txt] @input


[@CALLWordGame]
#CALL [Gambler\WordGame.txt] @WordGame

;[@CALLRoulette]
;#CALL [Gambler\Roulette.txt] @ShowMainScreen

[@CALLScratch]
#CALL [Gambler\ScratchCard.txt] @Scratch

[@CALLHiLo]
#CALL [Gambler\HiLo.txt] @HiLo

[@CALLPRS]
#CALL [Gambler\PRS.txt] @PRS

[@CALLDiceGame]
#CALL [Gambler\DiceGame.txt] @Dice


;[@_Startup]
;#ACT
;Speak "Click me for Double EXP!!!!"
;Delaygoto [Grobal] 30 @_Startup

[@CheckDayOfWeek]
#IF
;DAYOFWEEK Mon
;#ACT
;Goto @CALLWizPVP
;Break

;#IF
;DAYOFWEEK Tue
;#ACT
;Goto @CALLTaoPVP
;Break

;#IF
;DAYOFWEEK Wed
;#ACT
;Goto @CALLWarPVP
;Break

#IF
;DAYOFWEEK Thu
#ACT
Goto @CALLLMSPVP
Break

;#IF
;#SAY
;No Tournaments on this day\\
;Monday = Wizard PVP\
;Tuesday = Taoist PVP\
;Wednesday = Warrior PVP\
;Thursday = Last Man Standing PVP\\
;<[ Exit ]/@exit>\\\


[@CALLLMSPVP]
#CALL [System\PVP Tourney\PVPTourneyLMS.txt] @LMSPKBattle

[@NumaVillageEvent]
#CALL [EventSystem\NumaVillageEvent.txt] @AdminNumaVillageEvent

[@MonsterIslandEvent]
#CALL [EventSystem\Daebakmon\DaeBakMonNpc.txt] @DaebakMainMenu

[@ChallengeRoomEvent]
#CALL [EventSystem\SurviveGame\SurviveGame.txt] @SurviveGameMainMenu

[@SayHello]
#ACT
Speak "Hello Sting :P"
Break

[@SayGoodBye]
#ACT
Speak "Cya Sting :)"
Break

;;;;;;;;;;;;;;;;;;;;;;;;;;